home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / misc / fpl-v13.lha / fpl / src / libent.a < prev    next >
Text File  |  1994-03-14  |  3KB  |  84 lines
  1.  ************************************************************************
  2.  *                                                                      *
  3.  * fpl.library - A shared library interpreting script langauge.         *
  4.  * Copyright (C) 1992-1994 FrexxWare                                    *
  5.  * Author: Daniel Stenberg                                              *
  6.  *                                                                      *
  7.  * This program is free software; you may redistribute for non          *
  8.  * commercial purposes only. Commercial programs must have a written    *
  9.  * permission from the author to use FPL. FPL is *NOT* public domain!   *
  10.  * Any provided source code is only for reference and for assurance     *
  11.  * that users should be able to compile FPL on any operating system     *
  12.  * he/she wants to use it in!                                           *
  13.  *                                                                      *
  14.  * You may not change, resource, patch files or in any way reverse      *
  15.  * engineer anything in the FPL package.                                *
  16.  *                                                                      *
  17.  * This program is distributed in the hope that it will be useful,      *
  18.  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
  19.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                 *
  20.  *                                                                      *
  21.  * Daniel Stenberg                                                      *
  22.  * Ankdammsgatan 36, 4tr                                                *
  23.  * S-171 43 Solna                                                       *
  24.  * Sweden                                                               *
  25.  *                                                                      *
  26.  * FidoNet 2:201/328    email:dast@sth.frontec.se                       *
  27.  *                                                                      *
  28.  ************************************************************************
  29.  
  30.     include    'exec/types.i'
  31.     include    'exec/resident.i'
  32.     include    'exec/nodes.i'
  33.     include    'exec/libraries.i'
  34.  
  35. PRI    equ    0
  36.  
  37.  
  38.     section  text,code
  39.    
  40.     xref    _LibID
  41.     xref    _LibName
  42.     xref    RESLEN
  43.     xref    _BSSBAS        * linker defined base of BSS
  44.     xref    _BSSLEN        * linker defined length of BSS
  45.     xref    _LibFuncTab
  46.     xref    _LibInitTab
  47.             
  48.  
  49.     CNOP    4
  50.     xref    _LibInit
  51.     xdef    _LibRomTag
  52.     
  53.     moveq    #0,d0
  54.     rts
  55. _LibRomTag:
  56.     dc.w    RTC_MATCHWORD
  57.     dc.l    _LibRomTag
  58.     dc.l    endtag
  59. *    dc.b    RTF_AUTOINIT
  60. *    dc.b    _LibVersion
  61.     dc.w    RTF_AUTOINIT<<8+_LibVersion
  62.        IFD DEVICE
  63.     dc.b    NT_DEVICE
  64.        ELSE
  65.     dc.b     NT_LIBRARY
  66.        ENDC
  67.     dc.b    PRI
  68.     dc.l    _LibName
  69.     dc.l    _LibID
  70.     dc.l    _LibInitTab
  71. endtag:
  72.     section    __MERGED,data
  73.     xdef    _Libmergeddata
  74. _Libmergeddata    dc.l    0
  75.  
  76.     csect     data,0,1,1,2
  77.         xref     _LibVersion    * need a 16 bit reloc here
  78.  
  79.  
  80.     end
  81.     
  82.  
  83.  
  84.